約 2,345,105 件
https://w.atwiki.jp/excelmasters/pages/12.html
Excel(エクセル)とは何か 各バージョンのExcel Excelを起動してみる Excel(エクセル)とは何か Excelとは、Microsoft社が作った表計算ソフトです。通常は表を作成したりグラフを作成したりという用途が多いと思います。 Excelで作成したファイルの拡張子はXLS又はXLSXで、現在(2008年1月)のWindows用Excelの最新バージョンはMicrosoft Ofice Excel 2007です。 Excelがインストールされていなくても、「ExcelViewer」を使用することでファイルを閲覧できます。 私はコンピュータを使った作業をほとんどExcelに頼っています。Excelは本当にすごいアプリケーションだとつくづく感じます。私がこのサイトで解説するExcelの使用例の一部をここに示します。 表を作る グラフを作る サイトのバナーやロゴを作る 複雑な計算 簡単なプログラムの作成 これらはほんの一部です。Excelを使いこなせるようになれば、あなたが思ってもみなかった意外な使い道も見えてくるでしょう。 本サイトではこれらのExcelの活用方法を初心者にも分かりやすく説明することを心がけています。掲示板Bで本サイトの内容に関する意見・質問等を受け付けているので何か質問があった場合はどうぞ気軽に書き込んでください。 メールでの質問も可能です。(mizu-s[a]kss.biglobe.ne.jp) 各バージョンのExcel 元々、ExcelはMac用のアプリケーションだったようです。現在では様々なバージョンがあり、機能やデザインが微妙に異なっています。 Microsoft Office Excel 97 Microsoft Office Excel 2000 Microsoft Office Excel 2002 Microsoft Office Excel 2003 Microsoft Office Excel 2007 また、Macintosh用のExcelでは2008が最新バージョンです。 Microsoft Office Excel 2008 (これが全てではありません。また、2003と2007では機能が大きく異なっています。) このサイトではExcel2003と2007の両方を解説していきます。 Excelを起動してみる Windows XP でExcelのバージョンが2003の場合、Excelを起動するには、「スタート」→「すべてのプログラム」→「Microsoft Office」→「Microsoft Office Excel 2003」の順にポイントし、クリックします。 画像をクリックすると拡大します。 Windows Vista でExcelのバージョンが2007の場合、Excelを起動するには、ウィンドウズのロゴ(スタート)→「すべてのプログラム」→「Microsoft Office」→「Microsoft Office Excel 2007」の順にクリックします。 画像をクリックすると拡大します。 さあ、Excelを起動できたら次は「基本操作」に進みましょう。
https://w.atwiki.jp/shiwon_u/pages/24.html
Excel 自作関数
https://w.atwiki.jp/aru_notebook/pages/25.html
関数リファレンス http //office.microsoft.com/ja-jp/excel/CH062528191041.aspx
https://w.atwiki.jp/a3mi22/pages/11.html
Excel Page 関数たち グリッド線の非表示 ブックの共有 ブックにパスワードを付ける スクロールしても見出しが動かないようにする プルダウンリストを作る グループ化して折りたたむ 表のタイトル部分を印刷時に固定する 連続で同じオートシェイプを使う 名前定義を使ってみる 行番号・列番号も印刷する シートを表示 / 非表示 にする 文字の先頭を「A」に置き換える NETWORKDAYS関数を使えるようにする URLのハイパーリンクを無効にする 条件にあう数値だけ合計する 矢印キーを押してもセルが動かない シート名をセルに表示させる オートシェイプを変更する 複数条件にひっかかる件数を求める デフォルトのフォントやシート数を変更する
https://w.atwiki.jp/miijima/pages/6.html
Excel系のコツなどをメモっていきます。 文字列を指定しているセルで"########"とシャープが表示されてしまう EXCELの仕様で 文字数が 256 ~ 1024 の場合はセルに "#######" と表示 される模様。 参考:[XL2002] 表示形式が文字列のとき 256 文字以上の文字を表示できない http //support.microsoft.com/kb/410234/ja 変更していないファイルを閉じようとしても「保存しますか?」が出る ファイルを開く時に再計算する以下の関数を使用している。 - AREAS()関数 - CELL()関数 - COLUMNS()関数 - INDEX()関数 - INDIRECT()関数 - NOW()関数 - OFFSET()関数 - RAND()関数 - ROWS()関数 - TODAY()関数など ハイパーリンクが設定されている。 以前のバージョンのExcelで保存されたファイルを使用している。 カーソルキーで範囲選択になってしまう 症状:カーソルキーを押すとセルの移動ではなくて範囲選択になってしまう 原因:拡張選択オプションが機能しているため(ステータスバーに[拡張]の表示がある)。 解消方法:文字入力をしていない状態で[F8]ボタンを押す。 カーソルキーでスクロールしてしまう 症状:カーソルキーを押すとセルの移動ではなくてウィンドウがスクロールしてしまう。 原因:スクロールロックがかかっているため(ステータスバーにSCRLの表示がある)。 解消方法:[PrintScreen]ボタンの隣辺りにある[ScrollLock]ボタンを押す。 参照するシートやセルの位置を文字列で指定する =INDIRECT("シート名!A1") など。 直接文字列を入力せずにその内容が入力されたセルを参照することもできる。 (参照セルの位置の指定もセル参照させる方法) 例)セルA1に"Sheet1"、セルB1に"A"、セルC1に"3"と入力して セルD1に"=INDIRECT(A1 "!" B1 C1)"と入力するとSheet1シートのA3セルの内容が表示される セルの塗りつぶしや文字色の配色を変える [ツール]→[オプション]→[色]タブを選択 変更したい色をクリックして[変更]ボタンを押下 入力規則や条件付き書式を設定しているセルを探す あるセルと同じ条件のセルを探したい場合は、基準となるセルを選択した状態で操作する。 特に条件はない場合はどのセルを選択していてもOK。 メニューの[編集]→[ジャンプ]でジャンプウィンドウを開く。 [セル選択...]ボタン押下で選択オプションウィンドウを開く。 「入力規則」「条件付き書式」など探したいものにチェックを入れる。 (指定したセルと同条件のセルを探す場合は「同じ入力規則」に、 とにかく何かしらの条件が設定されているものを探す場合は「すべて」にチェック) [OK]ボタン押下 あるセルを参照しているセルがあるか探す 参照されているか確認したいセルを選択する。 メニューの[編集]→[ジャンプ]でジャンプウィンドウを開く。 [セル選択...]ボタン押下で選択オプションウィンドウを開く。 「参照先」にチェックを入れる。 (直接そのセルを参照しているもののみの場合は「1レベルのみ」に、 間接的にでも影響を与えるセルも探す場合は「すべてのレベル」にチェック) [OK]ボタン押下。 積み上げ棒グラフの区分線 積み上げ棒グラフで、要素の変化をわかりやすくするために線で結ぶ方法。 棒グラフの上で右クリック(一度だけ)→[データ系列の書式設定]→[オプション]→[区分線]にチェックを入れる。 アウトライン(折り畳み)機能 行の左や列の上に[+]や[-]の記号があって、 それをクリックすることで行や列をたたんだり開いたりできる機能。 [データ]→[グループとアウトラインの設定]→[アウトラインの自動生成] でSUMしてあるセルなどを元に自動的にアウトラインを作ってくれる。 手動でアウトラインのグループ(折りたたむ範囲)を設定する方法は 折りたたみたい行や列を選択して、[データ]→[グループとアウトラインの設定]→[グループ化] このままだと折りたたみの見出しが、行の場合は下・列の場合は右にできるので (通常の表計算では合計したセルが 詳細データの下や右に来ることが多いためらしい)、 見出しを上や左に持ってきたい場合は [データ]→[グループとアウトラインの設定]→[設定]で開く[設定]ウィンドウで 「集計行または列の位置」の「詳細データの下」や「...右」のチェックを外す。 (シート全体の設定になるので、 ”このグループは上が見出し、こっちは下が見出し”という設定はできない様子) シート見出しの大きさ変更 Excelの設定ではなく、Windowsの画面設定になってしまう。 (ので、個別のシート見出しの大きさは設定できない) デスクトップ画面で右クリック→[プロパティ]で、[画面のプロパティ]ウィンドウを表示する。 [デザイン]タブの[詳細設定]ボタンを押して、[デザインの詳細]ウィンドウを表示する。 「指定する部分」欄で「スクロールバー」を選択し、その右の「サイズ」を任意の数字に変更する。 (スクロールバーの大きさと共に、シート見出しの大きさも変更される) シート名が長い時に、省略して表示する方法が無いかを調べていたんですが そういう方法は今のところ見つかっていません。 上記の設定方法では、他のシート見出しはもちろん スクロールバーまで大きさが変わるので(これはこれで便利だと思いましたが) もうちょっと良い方法を探してみたいと思います。 オブジェクトの簡単コピー Ctrlキーを押しながらオブジェクトをドラッグするとドラッグ先にコピーされる。 Ctrl + Shiftを押しながらドラッグすれば、 水平・垂直方向にオブジェクトを整列させながらコピーすることができる。 シート移動のホットキー 「Ctrl + PageUp」(前のシートへ)、「Ctrl + PageDown」(後ろのシートへ) で同ファイル内のシート移動ができる。 グラフエリアの位置やサイズを数値で設定したい 作成したグラフを[右クリック]→[グラフエリアの書式設定]をしても グラフの位置やサイズを指定する項目は出てこない。 フリーハンドで調整する場合は 枠のポイントにカーソルを持っていってドラッグすれば問題なくできるが、 数値で詳細な設定をしたい場合は、オブジェクトとして選択する必要がある。 通常はウィンドウの下部にある、図形描画ツールバーの白い矢印をクリックすると グラフをオブジェクトとして選択できるようになる (グラフとして選択した時と違い、枠のポイントが白い○になる)ので [右クリック]→[オブジェクトの書式設定]→[サイズ]タブで サイズの微調整ができるようになる。 「クリップボードを空にできません」 「クリップボードを空にできません」というエラーが出る場合は、 Windows\system32フォルダ内のCLIPBRD.EXEを起動させて [編集]→[削除]することでエラーが出てこないようにできる。 簡単オートフィル 元になるデータのセルを選択し、右下の+印をダブルクリックすると 最終行まで自動的にオートフィルされる。 2003の場合は、オートフィルしたあとで右下に出てくるプルダウンで 連続データ、書式のみコピー(フィル)、書式なしコピー(フィル)を選択できる。 数字を"書式なしフィル"したいのに初期設定ではコピーになってしまう場合は、 2行目までをフィルやコピー&修正で希望の連続データにしてから 2行まとめて元データとしてオートフィルすれば、最終行まで連続データになる。 (一度全行にフィルした後で書式なしフィルを選択する) 全行の書式をあとで修正するよりは楽。 グラフの描画 棒グラフの棒の太さを変えたい 「棒グラフの棒の太さ」という設定項目は無いようなので 棒の間隔を調整して、結果的に棒の太さを変えるのが賢いらしい。 http //kokoro.kir.jp/excel/gurafu_bou.html 24時間以上の場合いろいろ 24時間以内の数字で表示されてしまう 実際には24時間以上の数字(シリアル値)が入力されているはずなのに 表示上は24時間までになってしまうのが困る場合。 [書式]→[セル...]か、右クリック→[セルの書式設定]で設定のウィンドウを表示。 [表示形式]タブの「分類」で「ユーザー定義」を選択。 右に表示される「種類」の中から「[h] mm ss」などを選択。 (秒までの表示がいらない場合は[h] mmなどに編集しなおす) 深夜残業などで日付をまたいだ時間を計算したいとき 9 00から翌日1 00まで働いたときの勤務時間などを計算する場合。 24時を過ぎた時刻をそのまま引き算に使うと、マイナスの数値になってしまう。 この場合は、一日を表す"1"を就業時間に足して計算すると良い。 (IF関数などで終業時刻に応じて1をプラスする数式にしてもいいし、 自分で終業時刻を手入力する場合は"25 00"などと入力しておけば 表示上は"1 00"でも計算には25 00が使われるので問題ない) 24時間以上の時給計算 通常、時刻形式で入力したデータは 「シリアル値」という24時間を1とする数値として扱われるので (例:6時間半=0.270833...、2週間=14) シリアル値を時間単位に直したい場合は24をかければ良い。 (例:0.270833..*24=6.5) 30分、15分単位で丸めたい場合 =FLOOR([指定セル],"0 30")など、FLOOR関数の2番目の引数に 基準になる単位時間を指定すれば丸めたシリアル値を求めることができる。 基準値に満たない端数は切り捨てになる。 (例:=FLOOR("6 30","0 30")=0.270833... =FLOOR("6 45","0 30")=0.270833...) ファイルの「読み取り専用」設定 [ツール]→[オプション]→[セキュリティ]タブで 「このブックのファイル共有の設定」欄の「書き込みパスワード」を設定すると ファイルを開く時にパスワードを入力しないと読み取り専用になる。 それとは独立に、同じ項目内の「読み取り専用を推奨する」にチェックを入れると ファイルを開くときに「変更し、保存する必要がなければ、読み取り専用で開いてください。」 というメッセージが出るようになる。 関連: 同タブ内の「このブックのファイル暗号化の設定」欄の「読み取りパスワード」を設定すると 「 ***.xls は保護されています。」 というメッセージが出て、パスワードを入力しないとファイルが開けなくなる。 読み取り専用ではないファイルを読み取り専用で開く Excelのメニューの[ファイル]→[開く]で開くダイアログボックスで開きたいファイルを選ぶ。 [開く]ボタンの右側▼部分をクリックするとオプションが選べるようになるので、[読み取り専用で開く]をクリックする。 絶対参照・相対参照の切替え 数式の中の切り替えたいセル参照部分にカーソルを移動して F4を押すと"A1"→"$A$1"→"A$1"→"$A1"→"A1"→… という順番で変更される。 一つのセルから複数のセルが参照されていても カーソル位置にある参照だけが切り替わる。 (全体の参照を切り替えたい場合は、範囲選択すれば範囲内の切り替えも可能) 行・列の指定方法 セルの場合"A1"や"B2"という表現ができるが、 行や列全体を指定する場合は"1 1"、"A A"という表し方になる。 (Excelファイル内リンクなどで使用) 起動時にリンクの自動更新確認ダイアログが出ない (未確認情報) [ツール]→[オプション]→[編集] 「リンクの自動更新前にメッセージを表示する」とかなんとかにチェック (未確認情報) 図のリンク貼り付け 図として表などを貼り付けるのでシートのセル・行に拘わらずに表示できる 元データを変更すると貼り付けたデータにも反映される http //hp.vector.co.jp/authors/VA014071/tips/camera.html http //www.relief.jp/itnote/archives/000163.php 同ファイル別シートを見比べる 同じファイルの別のシートを参考にしながら入力したい時。 [ウィンドウ]→[新しいウィンドウで開く] をすると同じファイルを別ウィンドウで開けるので 参考にしたいシートや入力したいシートを開きつつ作業できる。 アクティブウィンドウが変わった時に入力した部分が もう一つのウィンドウにも反映される。 便利そうなページ インストラクターのネタ帳 http //www.relief.jp/itnote/archives/cat_4.php エクセル豆知識 http //www.b-img.com/netricoh/print.ed/1/1
https://w.atwiki.jp/kplus/pages/50.html
Excel関数 メニュー リファレンス|スニペット|エラー|[[]] 概要 Microsoft Excel上で計算、文字編集、統計などの処理を行うために用いるコマンド。OpenOffice、Googleドキュメントスプレッドシート、KINGSOFTオフィスでは一部互換性がある。簡単に表計算、文字処理、データ処理が行えるのが特徴だが、条件処理はコマンドが冗長的になり可読性が極めて乏しくなるほか、ルーチン処理は行えないなどの欠点もある。 主なExcel関数利用方法 結果NGの場合はパラメータ、プロパティーを変更して試してみて下さい。Excel2003までとExcel2007以降ではファイル拡張子が異なります。ファイル名やシート名取得の関数式は、関数を実行させるファイルを保存した後でないと正しく動作しません。 ・ファイル名を取得 Excel2003まで MID(CELL("filename",A1),FIND("[",CELL("filename",A1))+1,FIND(".xls]",CELL("filename",A1))-FIND("[",CELL("filename",A1))-1) Excel2007以降 MID(CELL("filename",A1),FIND("[",CELL("filename",A1))+1,FIND(".xlsx]",CELL("filename",A1))-FIND("[",CELL("filename",A1))-1) ・シート名を取得 Excel2003まで MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,FIND(".xls]",CELL("filename",A1))-FIND("[",CELL("filename",A1))-1) Excel2007以降 MID(CELL("filename",A1),FIND("]",CELL("filename",A1))+1,FIND(".xlsx]",CELL("filename",A1))) ・データを関数の引数で利用する場合 INDIRECT(A3 "!D D") ・15分単位 MROUND MROUND(数値, 倍数) (注)Excel2003では分析ツールにチェックを入れておく必要がある。 ・範囲名を利用した、IF(vlookup(indirect()))の応用 IF(B15="","",VLOOKUP(B15,INDIRECT(A15),4,FALSE))
https://w.atwiki.jp/lmes2/pages/201.html
Excel TIPS ワークブック名をセルに表示-CELL関数・FIND関数・MID関数:Excel エクセルの使い方-関数/計算式-文字列操作 エクセル(Excel)技道場 ワークシート名を表示する関数 Excelファンクラブ 複数あるシートのシート名をあるシートにリストとしてまとめるには?
https://w.atwiki.jp/hitkik/pages/83.html
現在のアクティブセルの位置を調べる。 y = ActiveCell.Row x = ActiveCell.Column Cells(y, x)でセルの位置を指定する。代入可能。 Cells(y, x).Interior.ColorIndex = 6色の変更 Cells(y, x).Interior.Pattern = xlUpパターンの変更 Cells(y, x).Interior.PatternColorIndex = xlAutomaticパターン色の変更 この値は、マクロを記録してVBAで見るのが簡単。 選択しているセルの範囲を返す Selection.Address ファイルを開くダイアログボックス Application.Dialogs(xlDialogOpen).Show ("ディレクトリパス") Excel VBA sample2 全部のワークシートにページ設定し印刷実行 sub 印刷実行() dim w as worksheet for each w in worksheets if w.name "do not print" then with w.pagesetup .zoom=false .centerfooter=" P/ N page" .fittopageswide=1 end with end if next worksheets.printpreview end sub http //www.geocities.co.jp/HeartLand-Kaede/9186/loan013.html#b 元利均等計算 Excelに用意されている以下の財務ワークシート関数を使用して算出しています。 返済額・融資金額に関してはボーナス併用をサポートしていますが、ボーナス分は無条件に6ヶ月間隔、初回ボーナス返済までの月数6ヶ月として計算されます。 ①返済額 = PMT(金利, 期間, 融資金額) 小数点以下は切り捨てます。 ②融資金額 = PV(返済額、金利、返済期間) 小数点以下は切り捨てます。 ③返済期間 = NPER(融資金額、毎月返済額、金利) 小数点第3位以下は切り捨てます。 ④金利 = RATE(融資金額、毎月返済額、返済期間) 小数点第6位以下は切り捨てます。 なお、③、④は毎月返済額をもとに計算しますので、ボーナス分の金額を入力しても無視します。 ボーナス分の金額で算出したい場合は、概算としてボーナス分融資金額は毎月分融資金額の概ね半分、ボーナス分返済金額は概ねボーナス分返済額の概ね6倍の金額として算出してみてください。
https://w.atwiki.jp/devulman/pages/58.html
Visitor No. - - - 関連語句:excel chart illust illustration draw エクセル グラフ イラスト 描く Excelで遊んでみる Excelグラフで絵を描いてみようって訳で、早速Web検索しました。「エクセルのグラフをイラストで表す」ばっかり出てくる。そうじゃなくて、「『をで』が違うんだ」って思いながら、次々ページを探すが発見できない。「エクセルのグラフでイラストを表す」んだってば! あきらめて自分でソフトを作ってみる。中途半端なソフトだけれど、マウスクリックで座標を取るだけ、x座標はもちろん10飛びとか決まったものでないとだめだけど......csv fileで保存する方法。 I wanted to draw "a picture with MS-Excel chart", and at 1st searched webs. But I found only many "MS-Excel chart with a picture". No...not!!. The words of both-sides of "with" are reverse! so, I stopped searching, I tried to make software with myself. This software is simple, making plot(x,y) data with mouse click, many repeating...and making csv file for MS-Excel. Down Load(With English Manual,日本語取説付、ソフトの日本語化も可能) programは、一時間ほどでできたが、実際に作ってみるととても大変、一個目、失敗。 The software had built for about an hour, but too difficult for me to en-data. 1st csv file was failed.... Snail (でんでんむし)Excel FilePDF File x方向で逆戻りがないようにしないと面倒だということがわかった。線の本数を増やせば、それも不可能ではないと思うが.....そこで、もっと簡単な絵にしてみた。I notified chart lines can t turn back on holizon, but many lines will solve it. so, I tested simple pix. Fish (魚)Excel FilePDF File まぁこんなところでしょうか.....That s about-all right. Nautilus (オウムガイ)Excel FilePDF File 渦巻きが好きです。I like spiral. Cockroach (ゴキブリ)Excel FilePDF File でんでんむしも要らない部分を空欄にして表示しなければ簡単です。が、グラフですから横は通しでやってみたい。そんなわけで4つ目の作品です。if only needed data will be input, it s easy to draw a snail with excel chart.but I try every chart line to be through left to right. Butterfly(蝶)Excel DLPDF File 都合、下の羽が大きい目です。 Snail (でんでんむし)Excel FilePDF File 再度でんでんむしに挑戦 GirlExcel FilePDF File At 1st I found this pix and I thought it was made with Excel.But it wasn t with Excel. It s fake.Because a line is turned to back side, therefore it s not Excel chart.So, I re-maked this pix.最初に発見した絵の作り直し版。横方向で逆走があり、表計算ソフトを使ってない偽物だった。 Leaf (葉っぱ)Excel FilePDF File Above Excel files are inputted data through left to right.ここまでのファイルは左右両端まで通しでデータ入力しています。 Flower (花)Excel FilePDF File Below Excel files are inputted the data needed to draw the pictures.以下は描画に必要な部分のデータのみ入力しています。 Spok (スポック)Excel FilePDF File if sample bmp pix is small, it s too hard to make excel data.元の絵が小さいと困難です。 Guebara (ゲバラ)Excel FilePDF File Using a little bigger bmp file, a little easier.大きい目の元絵を使うとその分やり易い。 Coelacanth (シーラカンス)Excel FilePDF File MazingerZExcel FilePDF File Lenin (レーニン)Excel FilePDF File 東野英次郎といえばそんな気のする顔Lenin looks like Eijiro Tono, a japanese actor as funeral server in Yojinbo. Guebara (ゲバラ)Excel FilePDF File Using a big sized bmp file. Star Trek TOSCp. KirkMr. SpokDr. McCoyExcel FilePDF File Startrek TOS MS-Excel Pix file 2009/9/22.To Make up these 3 faces costs me about 2 month.If you can t change Excel sheet, you save the startrek excel file to your HDD and re-try. Sheetが変らない時はHDDへの保存後に再試行。 Butterfly (蝶)Excel FilePDF File I programed symmetry function.and the 1st testing of horizontal symmetry function.対称機能をつけて横対称の試行。 Dragonfly (蜻蛉)Excel FilePDF File The 2nd of horizontal symmetry function.横対称の2つ目の試行。 Moth(蛾)Excel FilePDF File The Test of vertical symmetry function.縦対称の試行。 初音ミクExcel FilePDF File Miku Hatsune - 3D-chart is useful for animation. Startrek TOS MS-Excel Pix file 2009/9/22 Kirk+Spok+McCoy Excel File Down Load 出来上がったソフトをUpLoadする前は1日5人程度の訪問、UpLoad後は1日15-20人の訪問、ま、そんなもんでしょう。 Page Top Top Page
https://w.atwiki.jp/stu_pg/pages/12.html
Excelのバージョン取得 Excelでバージョン情報といえば「 Val( Application.Version ) 」という方法で、 Excel97x:8 Excel2000x:9 Excel2002x:10 Excel2003x:11 という数値を取得できます。 OS、エクセルのバージョン、ユーザー名を取得する Sub MyVersion() MsgBox "Excel.Version " Chr(13) _ "Excel" Application.Version エクセルのバージョン MsgBox "OS.Version " Chr(13) _ Application.OperatingSystem OSのバージョン MsgBox "Excelユーザー名 " Chr(13) _ Application.UserName ユーザーネーム End Sub ファイル形式を調べる Sub Sample() Select Case ThisWorkbook.FileFormat Case XlFileFormat.xlExcel5 MsgBox "このファイルの形式は" _ "Excel95で作られたファイルです" Case XlFileFormat.xlExcel7 MsgBox "このファイルの形式は" _ "Excel97で作られたファイルです" Case XlFileFormat.xlWorkbookNormal MsgBox "このファイルの形式は" _ "Excel2000で作られたファイルです" Case Else MsgBox "このファイルの形式は" _ "Excel95/97/2000以外のファイルです" End Select End Sub 選択範囲の漢数字を漢字に変換するマクロ Sub ChangeKanjiToSuji() Const KANJI = "〇一二三四五六七八九" Dim a, k, i Dim strValu As String For Each a In Selection a.Value = Application.WorksheetFunction.Asc(a.Value) strValu = a.Value Dim j As Long For i = 1 To Len(strValu) j = InStr(1, KANJI, Mid$(strValu, i, 1), 0) If j 0 Then Mid(strValu, i, 1) = CStr(j - 1) Next a.Value = Replace(strValu, "・", ".") Next End Sub